home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 356 / defs / terminal.def < prev    next >
Text File  |  1992-03-11  |  2KB  |  59 lines
  1. DEFINITION MODULE Terminal;
  2. (* Direct to the terminal I/O for performance. *)
  3.  
  4.  
  5. (*
  6. *    Copyright (c) 1985, 1986 by
  7. *    Djavaheri Bros., Foster City, California.
  8. *    All Rights Reserved.
  9. *
  10. *    This software is furnished under a license and may be used and copied
  11. *    only  in accordance with  the  terms  of  such  license and  with the
  12. *    inclusion of the above copyright notice.  This software or  any other
  13. *    copies thereof may not be provided or otherwise made available to any
  14. *    other  person.   No title to and ownership of the  software is  herby
  15. *    transferred.
  16. *
  17. *    The information in this software is  subject to change without notice
  18. *    and  should  not be construed as a commitment by Djavaheri Bros.   No
  19. *    warranty is implied or expressed.
  20. *
  21. *   SCCID  = "1.2    10/8/86"; 
  22. *)
  23. EXPORT QUALIFIED
  24.     ReadChar,    ReadString,    CondRead, Read,
  25.     WriteChar,    WriteString,    WriteLn, Write,
  26.     WriteErrorString, ReadLn,       EOL;
  27.  
  28. (* Following routines not yet implemented.
  29.    They need to be clearly defined as they are very hardware dependant.
  30.  
  31.     NumRows,    NumCols,    GotoRowCol,
  32.     EraseScreen,    EraseToEOL,    EraseToEOS;
  33. *)
  34.  
  35. PROCEDURE ReadChar    ( VAR      ch : CHAR );      (* Read with echo *)
  36.  
  37. PROCEDURE Read        ( VAR      ch : CHAR );      (* Read with echo *)
  38.  
  39. PROCEDURE ReadLn;
  40.  
  41. PROCEDURE ReadString  ( VAR     str : ARRAY OF CHAR ); (* until EOL or EOS *)
  42.  
  43. PROCEDURE CondRead    ( VAR      ch : CHAR;        (* Read next char, no wait *)
  44.                         VAR success : BOOLEAN );   (* false if no char avail. *)
  45.  
  46. PROCEDURE WriteChar   ( ch  : CHAR );
  47.  
  48. PROCEDURE Write   ( ch  : CHAR );
  49.  
  50. PROCEDURE WriteString ( VAR str : ARRAY OF CHAR );
  51.  
  52. PROCEDURE WriteLn;                                  (* writln  (from Pascal) *)
  53.  
  54. PROCEDURE WriteErrorString ( VAR str : ARRAY OF CHAR ); (* Write errors *)
  55.  
  56. PROCEDURE EOL() : BOOLEAN;
  57.  
  58. END Terminal.
  59.